﻿Imports XL.Common
Imports XL.Common.Utils
Imports AssetVisionXAuto.Facade

Namespace Facade



    Public Class OpMP

        'Public Shared Sub ExecuteMP_AV_EXECUTE_UPDATE_ASSET_CURRENT_RUNNER()

        '    Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()


        '    MPDataLayer.ExecuteMP_AV_EXECUTE_UPDATE_ASSET_CURRENT_RUNNER()

        'End Sub

        Public Shared Sub ExecuteMP_AV_EXECUTE_SYNC_ASSET_RUNNER_BY_LOCATION()

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()

            MPDataLayer.ExecuteMP_AV_EXECUTE_SYNC_ASSET_RUNNER_BY_LOCATION()

        End Sub


        Public Shared Sub ExecuteMP_AV_EXECUTE_UPDATE_ASSET_TREE_STRUCTURE()

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()


            MPDataLayer.ExecuteMP_AV_EXECUTE_UPDATE_ASSET_TREE_STRUCTURE()

        End Sub

        Public Shared Sub ExecuteMP_AV_EXECUTE_DELETE_OVERDUE_FORMS( _
           ByVal dueDays As Decimal)

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()
            MPDataLayer.ExecuteMP_AV_EXECUTE_DELETE_OVERDUE_FORMS(dueDays)


        End Sub

        Public Shared Sub FillFT_MP_AV_SELECT_ASSET_MAYBE_LOST_OVERDUE( _
            ByVal MAYBE_LOST_DUE_DAYS As Integer, _
            ByVal CIVALUE_ELIMINATE_WAY_MAY_BE_LOST As Integer, _
            ByVal RUNNER As String, _
            ByRef list As AssetVisionXAuto.FTs.FT_MP_AV_SELECT_ASSET_MAYBE_LOST_OVERDUE)

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()

            MPDataLayer.FillFT_MP_AV_SELECT_ASSET_MAYBE_LOST_OVERDUE( _
                MAYBE_LOST_DUE_DAYS, _
                CIVALUE_ELIMINATE_WAY_MAY_BE_LOST, _
                RUNNER, _
                list)

        End Sub

        Public Shared Sub FillFT_MP_AV_SELECT_PRINCIPAL_INVENTORY_INTEGRALITY( _
            ByVal FROM_DATE As DateTime, _
            ByVal TO_DATE As DateTime, _
            ByVal CURRENT_RUNNER As String, _
            ByRef list As AssetVisionXAuto.FTs.FT_MP_AV_SELECT_PRINCIPAL_INVENTORY_INTEGRALITY)

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()

            MPDataLayer.FillFT_MP_AV_SELECT_PRINCIPAL_INVENTORY_INTEGRALITY( _
                FROM_DATE, _
                TO_DATE, _
                CURRENT_RUNNER, _
                list)

        End Sub

        Public Shared Sub FillFT_MP_AV_SELECT_PRINCIPAL_ASSET_KEEP_INTEGRALITY( _
            ByVal FROM_DATE As DateTime, _
            ByVal TO_DATE As DateTime, _
            ByVal CIVALUE_ELIMITATE_WAY_VALUE_LOST As Integer, _
            ByVal CURRENT_RUNNER As String, _
            ByRef list As AssetVisionXAuto.FTs.FT_MP_AV_SELECT_PRINCIPAL_ASSET_KEEP_INTEGRALITY)

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()

            MPDataLayer.FillFT_MP_AV_SELECT_PRINCIPAL_ASSET_KEEP_INTEGRALITY( _
                FROM_DATE, _
                TO_DATE, _
                CIVALUE_ELIMITATE_WAY_VALUE_LOST, _
                CURRENT_RUNNER, _
                list)

        End Sub


        Public Shared Sub FillFT_MP_AV_SELECT_ASA_DEPT_PERIOD_PURCHASE_AMOUNT_TOTAL( _
              ByVal DEPARTMENT_ID As String, _
              ByVal FROM_DATE As DateTime, _
              ByVal TO_DATE As DateTime, _
              ByRef list As AssetVisionXAuto.FTs.FT_MP_AV_SELECT_ASA_DEPT_PERIOD_PURCHASE_AMOUNT_TOTAL)

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()

            MPDataLayer.FillFT_MP_AV_SELECT_ASA_DEPT_PERIOD_PURCHASE_AMOUNT_TOTAL( _
                DEPARTMENT_ID, _
                FROM_DATE, _
                TO_DATE, _
                list)

        End Sub

        Public Shared Sub FillFT_MP_AV_SELECT_DEPT_PERIOD_PURCHASE_AMOUNT_TOTAL( _
             ByVal FROM_DATE As DateTime, _
             ByVal TO_DATE As DateTime, _
             ByRef list As AssetVisionXAuto.FTs.FT_MP_AV_SELECT_DEPT_PERIOD_PURCHASE_AMOUNT_TOTAL)

            Dim MPDataLayer As AssetVisionXAuto.DataLayer.EDLMP = AssetVisionXAuto.DataLayer.EDLMP.GetInstance()

            MPDataLayer.FillFT_MP_AV_SELECT_DEPT_PERIOD_PURCHASE_AMOUNT_TOTAL( _
                FROM_DATE, _
                TO_DATE, _
                list)

        End Sub

    End Class

End Namespace
